1 IFX=0THENX=1:LOAD"ROUTINES*",8,1
700 POKE1020,2:POKE1021,17:POKE1022,1:POKE1023,38
750 GOSUB 800 : GOTO835
760 :
800 OPEN15,8,15,"I0":CLOSE15
820 OPEN2,8,2,"$":FORX=0TO156:GET#2,A$:NEXT
830 GET#2,A$:SI=VAL(A$):CLOSE2:RETURN
832 :
835 POKE53280,6:POKE53281,6
840 PRINT"[147]        [204][207][193][196][211][212][193][210] [195]OLOR [211]ELECTION"
850 PRINT"[153]    [193]FTER HAVING MADE YOUR SELECTION,"
855 PRINT"YOU WILL BE GIVEN A CHANCE TO SAVE THE"
860 PRINT"CHANGES, DO THEM OVER, OR QUIT WITH NO"
865 PRINT"CHANGES."
870 PRINT"    [201]N ORDER TO PUT THE CHANGES IN"
875 PRINT"EFFECT, YOU MUST PRESS [195] [153]AT THE MAIN"
880 PRINT"MENU."
885 PRINT"[208]RESS [211][208][193][195][197] [153]TO CHANGE COLORS, [209] [153]TO QUIT."
890 GETA$:IFA$=""THEN890
891 IFA$=" "THEN900
892 IFA$="Q"ORA$="[209]"THENPRINT"[147]";:GOTO12050
893 GOTO890
900 GOSUB6000:PRINT"[147][144]":POKE53281,C%(1):POKE53280,C%(0)
1000 POKE646,C%(4)
1010 PRINTWT$;:FORI=2TO17:PRINT"[221]"SPC(38)"[221]";:NEXT:PRINTWB$;:POKE646,C%(3)
1050 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT:POKE646,C%(2):SYS51203:GOTO2500
1055 POKE2023,125:POKE56295,C%(2):           RETURN
1060 :
1100 POKE783,0:POKE781,Y%:POKE782,X%:SYS65520:RETURN
1200 :
1300 :
2500 POKE646,C%(2):PRINT"       [204][207][193][196][211][212][193][210] [195]OLOR [211]ELECTION        ":R%=.
2502 POKE53280,C%(0):POKE53281,C%(1)
2505 POKE646,C%(2):SYS51200:PRINT"[198]ROM HERE, YOU CAN SELECT THE COLORS
2510 [153]"THAT YOU FIND MOST LEGIBLE FOR READ-
2515 PRINT"ING TEXT.  [212]HESE COLORS ARE ONLY AC-
2520 [153]"TIVE WHEN YOU ARE ACTUALLY READING AN
2525 PRINT"ARTICLE.  [217]OU MAY CHANGE THE COLORS OF
2530 [153]"ANY OF THE FOLLOWING:
2535 PRINT"      [212]HE [194]ORDER: ";:POKE646,C%(.):PRINT"  [146]";:POKE646,0:PRINT"_"
2540 POKE646,C%(2):PRINT"  [212]HE [194]ACKGROUND:"
2560 POKE646,C%(2):PRINT" [212]HE [212]EXT [201]TSELF:   [146]"
2562 PRINT""WT$;
2565 PRINT"[221] [213]SE [195][210][211][210] KEYS/[202]OYSTICK TO MOVE THE   [221]";
2570 PRINT"[221] ARROWS, AND [211]PACEBAR/[194]UTTON TO EXIT. [221]";
2575 FORI=1TO2:PRINT"[221]                                      [221]";:NEXT
2580 PRINTLEFT$(WB$,39);:FORI=217TO242:POKEI,PEEK(I)OR128:NEXT:GOSUB1055
2585 X%=3:Y%=22:GOSUB1100:PRINT"";:FORI=.TO15:POKE646,I:PRINT"  ";:NEXT:PRINT
2590 X%=4+C%(R%)*2:Y%=23:GOSUB1100:POKE646,C%(3):PRINT"^";
2600 GETK$:J%=NOTPEEK(J)AND31:IFK$=""ANDJ%=.THEN2600
2601 POKEB,0:IFK$="[145]"ORJ%=1THEN2650
2602 IFK$=""ORJ%=2THEN2670
2603 IFK$="[157]"ORJ%=4THEN2610
2604 IFK$=""ORJ%=8THEN2630
2605 IFJ%=16ORK$=" "THEN10000
2606 GOTO2600
2610 X%=4+C%(R%)*2:Y%=23:GOSUB1100:PRINT" "
2612 C%(R%)=C%(R%)-1:IFC%(R%)<.THENC%(R%)=15
2615 IFR%>1THENIFC%(R%)=C%(1)THEN2612
2617 IFR%=1THENIFC%(1)=C%(2)THEN2612
2618 X%=4+C%(R%)*2:Y%=23:GOSUB1100:PRINT"^"
2620 ONR%+1GOSUB2810,2820,2860
2622 IFR%<>1THENX%=19:Y%=10+R%:GOSUB1100:POKE646,C%(R%):PRINT"  ":POKE646,C%(2)
2625 GOTO2600
2630 X%=4+C%(R%)*2:Y%=23:GOSUB1100::PRINT" "
2632 C%(R%)=C%(R%)+1:IFC%(R%)>15THENC%(R%)=.
2635 IFR%>1THENIFC%(R%)=C%(1)THEN2632
2637 IFR%=1THENIFC%(1)=C%(2)THEN2632
2640 GOTO2618
2650 X%=21:Y%=10+R%:GOSUB1100:PRINT" ":X%=4+C%(R%)*2:Y%=23:GOSUB1100:PRINT" "
2652 R%=R%-1:IFR%<.THENR%=2
2655 X%=21:Y%=10+R%:GOSUB1100:POKE646,C%(2):PRINT"_":X%=4+C%(R%)*2:Y%=23:GOSUB1100
2656 POKE646,C%(3):PRINT"^":GOTO2600
2670 X%=21:Y%=10+R%:GOSUB1100:PRINT" ":X%=4+C%(R%)*2:Y%=23:GOSUB1100:PRINT" "
2672 R%=R%+1:IFR%>2THENR%=.
2675 GOTO2655
2700 IFPEEK(788)=49THENPOKES+24,15:SYS49158:POKE56325,49
2702 RETURN
2705 IFPEEK(788)=49THEN2715
2710 SYS49155:POKES+4,0:POKES+11,0:POKES+18,0:POKES+5,8:POKES+6,0:POKES+24,15
2715 RETURN
2800 X%=15:Y%=22:GOSUB1100:POKE646,C%(3):PRINTMU$:POKE646,C%(5):GOTO2000
2810 POKEV+32,C%(.):RETURN
2820 POKEV+33,C%(1):RETURN
2830 POKE1020,.:POKE1021,.:POKE1022,.:POKE1023,39:POKE646,C%(2):SYS51203
2831 POKE1020,2:POKE1021,17:POKE1022,1:POKE1023,38:POKE646,C%(5):RETURN
2840 POKE1020,19:POKE1021,21:POKE1022,.:POKE1023,39:POKE646,C%(3):SYS51203
2841 POKE1020,24:POKE1021,24:SYS51203:POKE1020,2:POKE1021,17:POKE1022,1
2842 POKE1023,38:POKE56176,C%(3):POKE56215,C%(3):POKE56216,C%(3):POKE56255,C%(3)
2843 POKE646,C%(5):RETURN
2850 POKE646,C%(4):POKE1020,1:POKE1021,1:POKE1022,.:POKE1023,39:SYS51203
2851 POKE1020,18:POKE1021,18:SYS51203:CM=55296:TN=39:FT=40:F=C%(4):FORI=2TO17
2852 POKECM+I*FT,F:POKECM+I*FT+TN,F:NEXT:POKE1020,2:POKE1021,17:POKE1022,1
2853 POKE1023,38:POKE646,C%(5):RETURN
2860 POKE646,C%(2):SYS51203:FORI=.TO2:X%=19:Y%=I+10:GOSUB1100:POKE646,C%(I)
2865 IFI<>1THENPRINT"";
2870 PRINT"  ":NEXT:POKE646,C%(2):RETURN
2900 :
3000 :
5907 POKE1020,2:POKE1021,18:POKE1022,1:POKE1023,38:SYS51200:PRINT"[129]";:SYS51203
5910 POKES+4,.:POKES+11,.:POKES+18,.
5999 :
6000 V=53248:R=V+17:S=V+1024:J=56320
6037 DIMC%(8):OPEN15,8,15:OPEN8,8,8,"SETUP"
6038 INPUT#8,C%(0),C%(1),C%(2),C%(3),C%(4),C%(5),C%(6)
6039 CLOSE8:CLOSE15
6040 WT$="[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
6042 WB$="[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
6060 RETURN
10000 :
10050 POKE646,C%(2)
10100 SYS51200:PRINT"[193]RE THESE SELECTIONS WHAT YOU WANT?"
10110 PRINT"[[217]/[206]] OR [209] TO [209]UIT"
10200 POKE198,0:WAIT198,1:GETA$
10210 IFA$<>"Y"ANDA$<>"N"ANDA$<>"Q"           THEN10200
10220 IFA$="Q"THEN12050
10300 IFA$="N"THENSYS51200:GOTO2500
10350 GOTO12000
10360 :
10400 SYS51200:PRINT"[208]LEASE MAKE SURE SIDE"AG"OF YOUR"
10410 PRINT"[204][207][193][196][211][212][193][210] DISK IS IN THE DRIVE."
10420 PRINT"[208]RESS A KEY WHEN YOU ARE READY."
10422 PRINT"([208]RESS [209] TO [209]UIT)"
10430 POKE198,0:WAIT198,1:GETA$:              IFA$="Q"THEN10000
10435 :
10450 GOSUB 800
10451 IFSI=AGTHEN10500
10452 SYS51200:PRINT"[211]IDE"AG"NOT FOUND...":FORDL=1TO2000:NEXT
10454 GOTO10400
10460 :
10500 OPEN15,8,15,"I0"
10530 CR$=CHR$(13)
10540 OPEN3,8,4,"SETUP"
10600 PRINT#15,"P
"CHR$(0)"
";
10610 PRINT#3,C%(0)CR$C%(1)CR$C%(2)CR$C%(3)CR$C%(4)CR$C%(5)CR$C%(6)CR$
10620 CLOSE3:CLOSE15
10630 SYS51200:PRINT"[195]OLOR FILE IS NOW ON THE DISK."
10632 FORDL=1TO2000:NEXT
10635 RETURN
10640 LOAD"CUSTOM LS BOOT",8
12000 :
12010 NS=2: REM  NUMBER OF SIDES                         TO CUTOMIZE
12020 FORAG=1TONS:FL=0:GOSUB10400
12022 REM   IFFL=1THEN12020
12030 NEXT AG
12040 :
12050 SYS51200:PRINT""
12055 PRINT"[208]LACE [204][207][193][196][211][212][193][210] [211]IDE [207]NE IN YOUR DRIVE"
12056 PRINT"AND PRESS ANY KEY TO RETURN TO MENU.":POKE198,.
12057 GETA$:IFA$=""THEN12057
12060 OPEN15,8,15,"R0:CUSTOM LS BOOT=CUSTOM LS BOOT":INPUT#15,ER:CLOSE15
12061 IFER<>63THEN12050
12070 PRINT"[210]ETURNING TO [195]USTOMIZATION [205]ENU"
12080 PRINT"[147]":POKE53281,0:POKE0,47:LOAD"CUSTOM LS BOOT",8